Types

       Type
         TimeDate = Record
                      Year,
                      Month,
                      Day,
                      WeekDay,
                      Hour,
                      Min,
                      Sec,
                      ms         :Word;
                    End;

         DayNameString   = String[9];
         DayNameArray    = Array [0..6] of DayNameString;
         MonthNameString = String[10];
         MonthNameArray  = Array [1..12] of MonthNameString;
         MonthAbrString  = String[3];
         MonthAbrArray   = Array [1..12] of MonthAbrString;

    The above are used to store the date  and time, as well as day names,
    month names and month abbreviations.

    Note  that  TimeDate  is  used  in  this  unit  rather  than  the DOS
    unit's DateTime.